home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gsnup.ps < prev    next >
Text File  |  2003-01-03  |  2KB  |  79 lines
  1. %!
  2. %    Copyright (C) 1999 Aladdin Enterprises.  All rights reserved.
  3. % 
  4. % This software is licensed to a single customer by Artifex Software Inc.
  5. % under the terms of a specific OEM agreement.
  6.  
  7. % $RCSfile$ $Revision$
  8. % Prefix this to very well-behaved PostScript files for n-up printing.
  9.  
  10. /cdef { 1 index where { pop pop } { def } ifelse } def
  11.  
  12. %%%%%%%%%%%%%%%% Begin parameters %%%%%%%%%%%%%%%%
  13.  
  14. % All parameters are also settable from the command line with -d, e.g.,
  15. % -d.Nx=3
  16.  
  17. /.Nx 2 cdef            % # of pages across the physical page
  18. /.Ny 2 cdef            % # of pages down the physical page
  19. /.Landscape false cdef        % if true, rotate page by 90 degrees
  20.  
  21. %%%%%%%%%%%%%%%% End parameters %%%%%%%%%%%%%%%%
  22.  
  23. vmstatus pop pop 0 eq { save pop } if
  24. .Landscape {
  25.   currentpagedevice /PageSize get aload pop
  26.   exch 2 array astore
  27.   1 dict dup /PageSize 4 -1 roll put
  28.   setpagedevice
  29. } if
  30. /.BP currentpagedevice /BeginPage get def
  31. /.EP currentpagedevice /EndPage get def
  32. /.Ps 1 string def    % survive save/restore
  33. /.Pn { .Ps 0 get } def
  34. true setglobal        % protect from restore
  35. /.ELevel [0] def
  36. /.Rmat matrix def
  37. false setglobal
  38. /.max { 2 copy lt { exch } if pop } cdef
  39. % Work around the common save ... showpage ... restore locution.
  40. /restore {
  41.   .Rmat currentmatrix pop restore
  42.   vmstatus pop pop .ELevel 0 get lt { .Rmat setmatrix } if
  43. } bind def
  44. <<
  45.   /BeginPage {
  46.     .BP .Nx .Ny .max
  47.     gsave
  48.       initclip clippath pathbbox exch 4 -1 roll sub 3 1 roll exch sub
  49.     grestore
  50.     2 copy exch .Nx div exch .Ny div
  51.     .Pn dup .Nx mod exch .Nx idiv .Ny 1 sub exch sub
  52.         % Stack: nmax pw ph pw/nx ph/ny ix iy
  53.     exch 3 index mul exch 2 index mul
  54.     translate
  55.         % Stack: nmax pw ph pw/nx ph/ny
  56.     4 -1 roll 4 index div 4 -1 roll 4 index div
  57.         % Stack: nmax pw/nx ph/ny pw/nmax ph/nmax
  58.     exch 4 -1 roll exch sub 2 div
  59.     3 1 roll sub 2 div
  60.     translate
  61.         % Stack: nmax
  62.     1 exch div dup scale
  63.   }
  64.   /EndPage {
  65.     .ELevel 0 vmstatus pop pop put
  66.     .Ps 0 .Pn 1 add .Nx .Ny mul mod put    
  67.     .Pn 0 eq {
  68.       .EP
  69.     } {
  70.       pop pop false
  71.     } ifelse
  72.   }
  73. >> setpagedevice
  74. /.EOJ {
  75.   { .Pn 0 eq { exit } if showpage } loop
  76. } def
  77.  
  78. { currentfile cvx exec .EOJ } exec
  79.